@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||||DOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 138ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4auT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4au00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4L0 HȱHL0JH @3lhhh hhBhV}hDEhhHIhhJhhK VIi``hhh) BHI V0`L0hhhhh) BHIW}L0hh01hhh L 1`hhhhhhhL41`hhhHlhhhhhhhX} ``Ls1hhh`hhhhh`hhh𪈱`hhhȱhh`hhhY}) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2@ @2C2l  j2عk2lZ}`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6q6666666664dbc 1 run-time-error "[}"Type a key to ret23urn to DOS.2 BȝD2E8HI Vl @3؅ԘLF2ЅȱЅ٥iА` @\}3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥLF2҅ȱ҅` 3ԑȥՑL3ԅԄ]}LF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi `AL3Ա҅ԊȦձ҅ՊLF2 4 @3Р^}ȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅ХمLF2L4eЅАLF2 @3_}L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL38ԅȱՅL3ԍՍҍȱҍ 7`}ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅȱՅL3EԅȱEՅL3%ԅȱ%Յa}L3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3Ա҅L38ԅԩՅLF2EԅԩEՅLF2b}LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 M60 M60åп M60c}ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6&&& L27 d}`ɀE ɀf8ਊ 7$ 8$P 8`E0 IIL7e}8L7Ff eeF77fff$ 8` 2HȱHL0JH @3lhhh hhBhX@@dbc @Ġ aA ܁ zA ܁,@+@ L@P A ܁ Z   Z'i@   q$|@ g} d%  l%@ A ҁ L A ܁    P ͚ ͚ &@ A ܁ Z h}@ "AA l$.A   A    ZA d$ZA   A    Ћ }Deep Blue C i} linker v1.2(C) 1982 John Howard PalevichLink program, Duplicate file or Quit'' is not a valid command.file name?LNKC j}CCҁт  ҁ L    @ (\ L $E $?B\Y k}  "#       ;$ ˉ     l}  ҂уt   pq r r    *Ws  "# &.Ё"ЁTs.D.D. m}D` Ё ЁTh.h| "Ё"ЁT.Ё     Ё T. n}Ё   ҃ф   Ё  T.f      ')Fy  o} ' ЁU   Ё TF.s.s@      '   A p}    i  ҄хy q   s $ f  # f  y    " q} (: ω TQ TlC  %l q ʁ        (  r}  %څ  #   ҅ц H ʁ    - ҁ ҁ΁"΁΁"΁ 4 s}     Ɓ $NЁȁȁ ȁ Ɓ   Ɓ#Ɓ" e  "# ÆpЁȁ Ɓ t}  Æ   Æ ́ =҆ч  "#  ц        e Ɓ u}Ё"ЁƁ"Ɓ )56   r   pno p p    *q v}  "# &q  q.Ӈ "#  ҇ш.ۇ        . w}I       Q.Qb j.jˈ      x} '&   y  '  .ӈ%҈щ       y} #" ( "#  .-eЁ     Ё 6r.r.r   z}  ͚  ? lj  %lj L oCCCToo҉Y many globalsbad byte code.bad CCC {} fileCCC file too largecan't read file.CCC fileerror [%s]%s:%dbad op codebad CCC codeZY |} & "t f   $ A     ) q i    q i     }}  ܁  &(  A        Zϋ&g   ~}   f   $  "%      $never defined:Ћό } ܁ e Z  r ʖ & 0      A (#     )d ; ܁  } % Q     H     \ ܁ e Z  w Ќύ }&     A       &@   H ܁ }   A (#     ) ܁  % Ǝ ю    H     }Ѝώ A      & ێ  Insert source disk & type RETURNCan't readFile too big, }use DOSread errorInsert destination disk & type RETURNCan't writewrite errorDuplicated successfullyFile too big. Sorry }Read errorЎ.OBJ fileWrite error.OBJ file ā΁   %    .%F } "      ē      Ё q   y   A (#  f   }i    r ʖ & ̓    w ʖ́ && ד  ́   qy y }΁ $   : r ʖʁ &v  ʁ : i   . ͚ & /   }  /    'ā"āy""y## ܐ y ā y##y""##  ā ##/ } ʁ 2 ΁Ú   y q   5  y   @   L    ^  }  p ܁Z΁ȑ́  } ܁  r ʖ &   ́  Ё  ȁ } āƁ  &Y  ́  Æ Æ ц      q i     }  qy y΁ $    r ʖʁ &  ʁ  i   . ͚ & }    ˔ Cʁ ́ L   Д 66ā"ā y ā y ā  Ք ʁ } ́ ΁ $ ܁.COM%s->%scan't findcan't write can't findunknown file type.OBJ.CC }Cunknown file typeStatistics:%dSymbols%dLabels%dGlobalsCode starts $%xStack starts $%xlinking. . .pass 2Ca }n't re-readmainNo main()dbccan't re-open fileunknown file type.OBJ.CCCunknown file typeno errors  } 9 $  $  $3 "69  +$  -$z -$m    " }  0)  9'•    0  "      $ } $  $ "ޕ – 0)  9'K  0 a)  f's  W } A)  F'  7–     "   & @  }   $ "ޖ $&     К  r$V  w$m  } a$              &   }     К            00 @ = }   x     &   H     Ę  К }       0    N  "#  7 # } &d  $  $   :%   :%   :%     }      . ͚ &3   .      a& % V } z( %`i  A& %  Z( %  00       }00 0u ͚000!0D:         }              К   }  % ͚ &  Ę (4             }    " #   -$|   0)  9'    0 }D        d$    s$    > c$B }    x$d   Þ  =   " #  }  ' &  "# -   E     (%  "#  0 }      $c  "# 0    (      Ę } &        )r      (a } '<  "#  0Y  "#  a     $  "# 0  }   (      Ę &    à (    }  = &=     К (o      Ę & }     #" (   = bhhhhhhhchehdfgfg`L$mc }ifgfd˭geé`00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4 }L0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh) B }HI V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhhhh }L41`hhhHlhhhhhhh ``Ls1hhh`hhhhh`hhh }𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2 }@ @2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6q }6666666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI V }l @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥ }LF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi  }`AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅Х }مLF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL3 }8ԅȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅ }ȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3 }Ա҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 }M60 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6 }&&& L27 `ɀE ɀf8ਊ 7$ 8$P 8 }`E0 IIL78L7Ff eeF77fff$ 8` } 2dbc @Ġ aA ܁ zA ܁,@+@ L@P A ܁ Z   Z'i@   q$|@ @@dbcebef }  f T f T f Q f  ']e "# Ae  f Q }f T  ˱  $e g        >   . >}   g  T fg g T T  r ;d &Ef g Q T3e w ;d &of g Q} T3e,g   3edf dDeep Blue C Compiler version 1.1(C)1982 John Howard PalevichFi}le to compile (or RETURN to exit)g+gC.CCC->Couldn't open:Couldn't open:,g+h @S @ ,  S S[T d  } dddddd`7c d  " d d d d~dghhǭid $hk Zk  }h ak  g   z h fk     zr~h jk  4h   z,h+ir~h ok  Vh   }zr~h sk Uhhi~h |k Uzh5~hlg` $hd F` p  `&h ]T  "#}  h @dd S*id  % d  %~id 7 d   ,i+jd   }d  $ d  $ui    Īd dhdi k d $i k Q }di k  d k Ui j d Uj j k  9c d"d#,j+kj $}Hj k jj >$   "$  $vjjj d d"d# j d d  d k   k T} d T  d r ;d &j d k dkd  d  Sk  V ,kl} (Ik #" -k Y iexterncharintcharint#include#definemissing closing bracketNo errors.Can'}t nest include files<missing quote or <missing quote or >Hincluding Open failure on include filelm u U'l }  $Ml u     *}l u      +u |   } m~ $l -u   7|m  %l {m  $ m {m mn ?m}     |   7|     T Mu U $wm Ou  7 @ ,  S }d bu U $    `    ba >   `    >}   d   9c T   d& 9c   $    }"ֆ      T d"d#HP  'ba      }  %  "#i    &     %   $  } $ "#   <3    <M   9bac d  ^d } d   9c d   ܈d  d# <Ոˆ   3# $ ۀ}d # $Z0# $/Z0missing quotemissing apostropheline too longbsmacro table fu }llts ɉ ؠ ɉ ؠ d Uʼn ɉ‰ ؠ   f U  }    i U    l U=    o U]    r U} } ɨ  ts  u U    y U    } U݊     } U    U ֨    Uw $?.|   Q ɉd } ؠ  ts   $.|   ؠ ҋ ؠ } $  $       U $@  P ؠ} ~ ) ~1zts  F F   P 9c d ^ $}   ؠ ~ H U@  P) ؠ H F}    9c d ts ^ $   ؠ ~ H U} )  ؠ H F   # |% 9c d ^ 9c} d ^Y  i ؠ ݎ 9c tsd ^ $ 9c d ^ $ӎ UɎ }Ž ؠ֨Ў ڎ i  # ^% 9c d ^   0 ؠ } 9c d ^ $ Ux q ؠts  0  W# }&% 9c d ^Ϗ  ߏ ؠ S 9c d ^ $ 9c d ^ $I U? W}8 ؠF P ߏ   9c tsd ^ $ 9c d ^ $ }  ؠ  U  ؠ; U   ؠH }   9c d Ó ^ $ 9c d œ ^ $ 9c d Ǔ ^ts $ 9c d ʓ ^ $}  9c d ͓ ^ 9c d Г ^Α  ޑ ؠ ` ӓ U.  ؠ   } 'ޑb] ֓ Ux P ؠ    qޑ|ts] 9c d ٓ ^ 9c }d ۓ ^ $  ؠ    ޑU] 9c d ޓ ^ 9c d ^ }$V . ؠ    Oޑo] ޑ,+=-=*=/=%=t<<=>>=&=^=|=}=?||||&&&&|||=|||=|^=^=^&=&&&=&==!===!=<><=>=>><<<=>=<<<>>>  Д 9c }d e ^ $ 9c d h ^ $ 9c d k ^ 9c d o ^Z  j ؠ ̔ s U } Д ؠɔ v U” Д ؠ ɔ j  ^# +% #!} -%  9c d y ^ 9c d | ^6  F ؠ Z  U ^n ؠ "}       W UP ^ԕ ؠ  ▕#}    $   $@     W F $} # *% # /% # %%  9c d ^ 9c d ^ 9c d ^ %}  ؠ } U! ^ ؠz UJ C ؠz Us &}l ؠɨz  U   $.|   ŗ ؠ) '} $)  a Uq   $(.|   : ؠ2  (}$^2  a U    ؠ a Uߘ   ј ؠ)}  a U&    ؠ ; a U   O *} ؠ   {        a U?   $+}                a,}   UӚ $o.|    ؠ)  $) 2  -} $ɚ2 a UY 㚸 $.|    ؠ2  $+2 ).}  $O) a >><<<<=>>=>><<+=-=+-*=/=%=*/%++---$-!*&illegal address/}++--     # [$ # ($L L  Uٜ $3 m{  | 0}s  $Q ؠs  %s    + |  $  1}      I - UA $ z*  %! ؠ z*2} z   I  $`   $     3}   / U  ɉ 1 Uޝ  ɉ 3 |  m~  |  4}       $o       $   5}    7|`  %`       %*  $#6}                |   7}     ?П     5  m{   %8}         M           9}        $Ǡ  נ  =  %   $:}  {   a H | J | ) b   X ;}   ѣ          L U <} N U   ѡ#  $+ # 0$rZ # x$  X$j Zr=}  + #      0$ $! A)  F'ޢ  7  a>})  f'  W +    $+r &A       ?} P U $}  Z '%  %     }     d U @}$   `# "%h# $h` )M R  d U $IZ $FI'  ]T `"`#A} Z Z ]T `"`#   \% # b$ ~ "$֤ "B} '$ ' f$ } n$  g$2  t$I  C}\$` \ 0)  7'  0Z  ' # 0&  7(h  D}   0Z "  #Z[can't subscript]can't subscript]((,)invalid expressiE}on()+-'string space exhaustedih    %   $      F}       d   %   $&  .    G} $T  \  b ih$x      n    H}   d  d      d  db         I}   .      dih %        b  J}b  b  b  b  b  b  b  b  b  ! K} "  #  $ b % b & b ' ihb ( b ) b * b + bL} , b - b          N    M}     N F     ih       N}              N   O}    B "# )  @  'd iydd dzy  P} |{  V U ë  m~ $׫{  7|$  $  %Q}  $ %${ X UZ l J Z       | |zy ZR} U $ í { \ Uͬ լ  m~ ${ | {S} ^ UP l =  $:   M  z $  %r z T}za   d  } d   Vd ` U $ @dd S*Rd  $d U}  %  7d  $/ 7  d d dЭ*[,*[,baV}   $  $  $ "k  +$  -$ -$ޮ    W}"  0)  9'3    0  "      bX}a$  $  $ "O 3 0)  9'  0 a)  f'  Y}W A)  F'   73     "   &Z} @ ba  S $y "O $     A  r$ǰ  w$ް[}  a$         |    &S  \}  ba   A   |      | 00  ]}   x   | &   H Y    5  A^}q    ba |x 0      "#  _} # &ղ  $  $   :%   :%   :%X _    `}      ba  . > &   .      a& a}% dz z( %ѳڳ  A& %  Z( %   00     b} 00 0u >000!0D:00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0c}La4L0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh) d}BHI V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhhhhe}L41`hhhHlhhhhhhh ``Ls1hhh`hhhhh`hf}hh𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@g}LF2@ @2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696q}*B'DOS SYSB*+DUP SYSBUDBC OBJBWfCLINK COMBCC COMB}PMG C B PMG CCCBGRAPHICSC B GRAPHICSCCCB"AIO C BAIO CCCB X C B BOUNCE CCCB2BOUNCE COMB6MEDITC ECFB 7BOUNCE C BCX LNKB DX CCCB0MX COMB}PRINTF C BPRINTF CCCBBOUNCE LNKBDISKNAMEDATB6^6q6666666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI Vr}l @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8s}ҥLF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi t}`AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3u}؅ХمLF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅLv}38ԅȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87w}ԅȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&x}L3Ա҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M6y}0 M60 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰z}Lz6&&& L27 `ɀE ɀf8ਊ 7$ 8${}P 8`E0 IIL78L7Ff eeF77fff$ 8|}` 2ebef }  f T f T f Q f  ']e "# Ae  f Q  #define RAMTOP 0x6a#define PCOLR0 0x2c0#define SDMCTL 0x22f#define GRACTL 0xd01d#define CHBAS 0x2f4#define PMBASE 0xd407~}#define SIZEP0 0xd008#define HPOSP0 0xd000#define P0PF 0xd004#define P0PL 0xd00c#define HITCLR 0xd01e#define OCSET 0xe0}00#define GRAFP0 0xd00d#define RANDOM 0xd20achar *playbase,*charbase,playsize;/* initialize players */pmcinit()$(}int i;charbase=(peek(RAMTOP)-12)<<8;playbase=(peek(RAMTOP)-4)<<8;poke(RAMTOP,peek(RAMTOP)-16);graphics(0);pmgraph}ics(0);move(OCSET,charbase,0x400);poke(CHBAS,charbase>>8);$)/* flush players */pmcflush()$(pmgraphics(0);poke(}CHBAS,OCSET>>8);poke(RAMTOP,peek(RAMTOP)+16);graphics(0);$)/* set up one or two line resolution * players */pmgraph}ics(i)int i;$(int j;if(i)$(poke(SDMCTL,i==1 ? 0x3a : 0x2a);poke(GRACTL,2);playsize=(i==1 ? 8 : 7);poke(PMBA}SE,(playbase>>8)-(i==1 ? 4 : 2));for(j=0;j<4;++j)$(poke(HPOSP0+j,0);pmclear(j);$)$)else$(poke(SDMCTL},0x22);poke(GRACTL,0);for(j=0;j<4;++j)$(poke(HPOSP0+j,0);poke(GRAFP0+j,0);$)$)$)hitclear()$(poke(HIT}CLR,0);$)pmcolor(n,c,i)char n,c,i;$(poke(PCOLR0+n,(c<<4)+i);$)pmwidth(n,w)char n,w;$(poke(SIZEP0+n,w);$)hitp}2pf(f,t)char f,t;$(return (1<=16384)mask= -1; /* $FFFF */else$(mask=2;while(n>=mask)mask=mask<}<1;--mask; /* to 0..01..1 */$)while(n<(temp=(peek(RANDOM)+(peek(RANDOM)<<8))& mask)); /* average 2 times */ret}urn temp;$)/* * end of graphics library */vich */#define RAMTOP 0x6a#define PCOLR0 0x2c0#define SDMCTL 0x22f#def1'  '    0   ' '''  ' ' U  ' T !} '       ''  '  '' T  ' U  '' !} '' U  ' T  ''        ''  ' '  !} ' U  ' T  '       ' ' p   !'"' |  !} !'#' x   !'$'    !'%' #' . .!}     &' #' .   .    !}  ''$0(' &  # @)   !}  )   #  !' !'   & !}S:''gr9color'graphics'close'open'color'drawto'poke'dpoke'ciov'locate'position!}'cgetc'plot'cputc'setcolor'fill 'paddle!'peek"'ptrig#'stick$'strig%'vstick&'hstick''sound('rnd }/* * Deep Blue C Compiler * Atari I/O routines * and library fuctions * (c) 1982 John Howard Palevich */#define EOL 15%}5#define TAB 127#define SPACE 32/* * val(s) returns numeric value of * string in s */val(s)char *s;$(char c;%}int v,sign;while(c= *s)$(if(c==SPACE | c==EOL | c==TAB)++s;else break;$)sign=1;if(c=='+' | c=='-')$(if(c=='-%}')sign= -1;c= *++s;$)v=0;while(c>='0' & c<='9')$(v=v*10+c-'0';c=*++s;$)return v*sign;$)/* * hval(s) --%} hex string to integer */hval(s)char *s;$(int v;char c;v=0;while(c= *s)$(if(c==TAB | c==SPACE | c==EOL)++s;%}else break;$)while(1)$(if(c>='0' & c<='9')c=c-'0';else if(c>='a' & c<='f')c=c-87;else if(c>='A' & c<='F')c=c-%}55;else break;v=(v<<4)+c;c=*++s;$)return v;$)copen(fn,mode)char *fn,mode;$(int k,io,r,dir;io=0;whil%}e(io<8)$(if(peek(832+(io<<4))==255)break;++io;$)if(io==8)return -1; /* no iocb */fn[k=strlen(fn)]=EOL;if(mode==%}'r')dir=4;else if(mode=='w')dir=8;else if(mode=='a')dir=9;else return -132;r=ciov(io,3,fn,k+1,dir,0);fn[k]=0;if(r%}<0)$(cclose(io);return r;$)return io;$)/* * open an iocb the 'normal' way * -- open(iocb,fname,ax1,ax2); */%}open(iocb,ax1,ax2,fname)char iocb,ax1,ax2,*fname;$(return ciov(iocb,3,fname,strlen(fname),ax1,ax2);$)/* * close a%}n iocb the 'normal' way */close(i)char i;$(return cclose(i);$)cclose(i)int i;$(return ciov(i,12,-1,-1,-1,-1);%}$)cputc(c,unit)char c;int unit;asm 12297;cgetc(unit)int unit;asm 12294;getchar()$(return cgetc(0);$)putc%}har(c)char c;$(return cputc(c,0);$)gets(str)char *str;$(int r;if((r=ciov(0,5,str,120,-1,-1))<0)return r;s%}tr[r=dpeek(840)-1]=0;return r;$)cprints(str)char *str;$(return cputs(str,0);$)cputs(str,i)char *str;int i;$%}(int k;if(k=strlen(str))return ciov(i,11,str,k,-1,-1);else return 1;$)/* ciov(iocb,com,bad,blen,ax1,ax2) * -1 fo%}r bad,blen,ax1, or ax2 will * leave that parameter unchanged */ciov(iocb,com,bad,blen,ax1,ax2)int iocb,com,blen,ax1,ax2%};char *bad;asm 12291; /* $3003 *//* normalize(fname,fext) * converts file to upper case, * adds D: if no prefix, * a%}dds .fext if no extension */normalize(fname,fext)char *fname,*fext;$(int i;char c,temp[20];/* to upper case */i%}=0;while(c=fname[i])fname[i++]=toupper(c);if(--i < 0)return 0; /* null fname *//* fname[i] is last char of name */%}/* pre-fix D: */if(i==0 | (i==1 & fname[1]!=':')|(fname[1]!=':'&fname[2]!=':'))$(strcpy(temp,"D:");strcpy(temp+2,%}fname);strcpy(fname,temp);i=i+2;$)/* if no '.', add '.'fext */if(find(fname,i+1,'.')<0)$(fname[i+1]='.';str%}cpy(fname+i+2,fext);$)$)/* * toupper(c) -- if c lower case, * return upper case, else return c. */toupper(c)char %}c;$(return (c < 'a') || (c > 'z')? c : c-32;$) /* * tolower(c) -- if c upper case, * return lower case, else retur%}n c. */tolower(c)char c;$(return (c < 'A') || (c > 'Z')? c : c+32;$)/* strcpy(a,b) -- copy b into a * returns %}size of b (not counting 0) */strcpy(a,b)char *a,*b;asm 12300;/* move(a,b,len) -- move len chars from * a to b, inc-i%}ng addresses */move(a,b,len)char *a,*b;int len;asm 12303;/* clear(a,len) -- clear a to a+len-1 */clear(a,len)c%}har *a;int len;$(*a=0;move(a,a+1,len-1);$)/* usr(addr,.....) -- call usr(x) subr * at address addr */usr(addr)%}char *addr;asm 12306;/* find(addr,len,ch) -- find first * occurence of ch in addr to * addr+len-1, return 0--len or -1 %}if * not found */find(addr,len,ch)char *addr,ch;int len;asm 12309;/* * return length of string * not including z%}ero */strlen(str)char *str;$(return find(str,30000,0);$)/* * peek(i) -- return byte in i */peek(i)char *i;a%}sm 12312;/* * poke(i,d) -- return OLD value of d */poke(i,d)char *i,d;asm 12315;/* * dpeek(i) -- return word in [%}i,i+1] */dpeek(i)char *i;asm 12318;/* * dpoke(i,w) -- return old value of w */dpoke(i,w)char *i;int w;asm 12%}321;/* end of Atari library */ri I/O routines * and library fuctions * (c) 1982 John Howard Palevich */#define EOL 15$!'   $  $  $ "  +$)}  -$ -$    "  0)  9'    )} 0  "   '      $  $  $)}  "     0)  9'  0 a)  f')}  W A)  F'  7     ")} '  & @   ' $ ")} $     '  r$  w$ )} a$         '    )}&  '   '    '   '' '' )}    '' 0'0' '' ''   x   )}' &! !  H '   '  ' '  '")}     '#" #'0!' $   )}%  "#  "'$% # && & $  $   :%  )} :%   :%' #'   #'  #'  '  )} . $' &(   .     #'("' a& % ) z( )}%)*+* +%' A& % , Z( %,-.- .#' 0&')}0''      &'('0$'0' 0u $''0)'0'0*'!0)}D:'val'hval'copen'peek'strlen'ciov'cclose'open'close'cputc'cgetc'getchar'putchar'g)}ets'dpeek'cprints 'cputs!'normaliz"'toupper#'strcpy$'find%'tolower&'move''clear('usr)'poke*'dpoke)}ts'dpeek'cprints 'cputs!'normaliz"'toupper#'strcpy$'find%'tolower&'move''clear('usr)'poke*'dpoke(/* Test the I/O */main()$(char c;printf("File reader/writer\n");printf("Command: r,w,q\n");for(;;)$(printf("\n-}-> ");c=tolower(getchar());while(getchar()!='\n');switch(c)$(case 'r':rfile();break;case 'w':-}wfile();break;case 'q':return;default:printf("'%c' is not a command.\n",c);printf("Try R(ead), W(-}rite), or Q(uit).\n");break;$)$)$)rfile()$(char fname[20];int i;char c;for(i=0;!i;)$(printf("File to-} read? ");gets(fname);normalize(fname,"C");if((i=copen(fname,'r'))<0)$(printf("I/O error %3d on %s\n",-i,fna-}me);i=0;$)else break;$)/* now print file on consol */while((c=cgetc(i))>=0)putchar(c);cclose(i);printf("\-}n--EOF--");$)wfile()$(char fname[20],line[120];int i;char c;for(i=0;!i;)$(printf("File to write? ");gets(fn-}ame);normalize(fname,"C");if((i=copen(fname,'w'))<0)$(printf("I/O error %3d on %s\n",-i,fname);i=0;$)-}else break;$)/* now read file from consol */while((c=getchar())>=0)cputc(c,i);cclose(i);$);for(;;)$(printf("\n,d' r '''  '  '  '  ' 8 '  ' ' 1}' O ' O '  ' ' O ' ' O ' 1} & "    ' ' I'''' '1}'     d '      1}  ' !'  "' % ' #'.- .      .=. 1} ..+   ..*  .q.Q 1} $'  $'        1}   %'   %' '  &    2 1} $'  $'   d&     d $' 2}   $' ! $'  $' ![K:}Bouncin2}g Ball DemoPress arrow keys to move ball,Use 'q' to quit. '''key'ballshap'main'cop2}en'pmcinit'graphics'pmgraphi'cprints'color'plot'drawto'pmcolor'pmwidth'ballhack'pmcflush'2}cclose 'hitclear!'plmove"'peek#'cgetc$'sound%'hitp2pf  ' 8 '  ' ' 0B@@dbc @O jC r ECzL  I  *M mC G C G C G  I XJ I O XJ 6} O I  I XJ O I XJ O I  &@@ "@    QN 6} pN@ AACCALC F     dDNWAQA   6}   C DO  I %YBC G.-A.AA  YBA.=A.AA YBA.A.+AA  YB6}A.A.*AB BBYBB.qB.QBCB K  K FBVB  ;CFB  6 }     N   N;CDNB  &B B   2 K B 6 } K $C  d&CCC  C    d K 8C  K cC K  6 } K TAK:}Bouncing Ball DemoPress arrow keys to move ball,Use 'q' to quit. CD 6 } D $  $  $ D " DDC  +$  -$QD -$DD    "6 }  0)  9'D    0  "YD     D DE$6}  $  $D "DDD E 0)  9'"E  0uE a)  f'JE  W6}uE A)  F'rE  7uEE     "D   &E @ 6}EF  I $EE "E $E     I  r$-F cF w$DF 6}cF a$[F cF        G    &F  6}   FG I   G F     G 00 G  G 6}  x   G &_G   H I    G  IG 6}    GGHG 0    H  "#  IG # &26}H  $  $   :%   :%   :%H I kI   kI  kI6}     . HII &I   .     kI a& % $I z( 6} %.I7I  A& % WI Z( %aIjI  00      nI06}0 0u I000!0D:IJ  F    0   vL F yL  yL I U  I T6}  I       G  J  G T  I U  IyL   G U  I T 6} I        I JK yL I   I U  I T  I       6} G p   I |   I x   I    I :K .xKK K.KK 6} KK KK :K .KK K.KKxLK  KK KK$0 &K  # 6}@)L  @L   )9L  L #  I I   &nL@L S:zLyM6} j I  O j I  O j j I  I I *M O  nI  O  I *M6}   I j j I  I I M /  $JM :MM * I   I $pM sM O6 }  zMyNO   $M M  I  &MM "M   I NM@N / " I 6!} I  &@NN "N   I   IN  I      6"}I   zNyO I     IN N     IN N O  O  6#}O qI  O   nI     nI   O  nI  O  O 6$}   nI  zOO IO  O00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ6%} M0ԆLa4L0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh)6&} BHI V0``hhhhh) BHIL0hh01hhh L 1`hhhhhhh6'}L41`hhhHlhhhhhhh ``Ls1hhh`hhhh6(}h`hhh𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ6)}@ҭ@LF2@ @2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`555556*}56*696B6^6q6666666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI V6+}l @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 36,}ԑإ8ҥLF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi6-} `AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъ6.}LF2 @3؅ХمLF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅ6/}eՅL38ԅȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL360}L87ԅȱՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅61}&L3Ա҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅ62}L3 M60 M60 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր63}԰Lz6&&& L27 `ɀE ɀf8ਊ 7$ 864}$P 8`E0 IIL78L7Ff eeF77fff$ 865}` 2C r ECzL  I  *M mC G C G C G  I XJ I O XJ 4r( I  *M mC G C G C G  I XJ I O XJ 8*/* * Demo the player graphics * (C) 1982 John H Palevich */charkey;char *ballshape;main()$(char i;key=copen("K:>8}",'r');pmcinit();graphics(7);pmgraphics(1);cprints("\fBouncing Ball Demo\n");cprints("Press arrow keys to move ball>9},\n");cprints("Use 'q' to quit.");color(1);plot(0,0);drawto(159,0);plot(0,79);drawto(159,79);color(2);plot(0,0);drawt>:}o(0,79);plot(159,0);drawto(159,79);for(i=0;i<4;++i)$(pmcolor(i,4*i,6);pmwidth(i,0);$)ballshape="\20\0\0\0\0\0\6>;}\11\11\11\11\6\0\0\0\0\0";ballhack();pmcflush();cclose(key);$)ballhack()$(char xbounce,ybounce,i,px,py,dx,dy;i=><}dx=dy=0;px=py=100;hitclear();for(;;)$(i=(i+1)&3;plmove(i,px,py,ballshape);if(peek(764)!=255)$(switch(cgetc>=}(key))$(case '-':case '':dy=-1;break;case '=':case '':dy=1;break;case '':>>}case '+':dx=-1;break;case '':case '*':dx=1;break;case 'q':case 'Q':so>?}und(0,0,0,0);sound(1,0,0,0);return;default:dx=dy=0;$)$)px+=dx;py+=dy;if((xbounce=hitp2>@}pf(i,1)) |(ybounce=hitp2pf(i,0)))$(hitclear();if(xbounce)$(/* hit side */dx=(px<128 ? 1 : -1);soun>A}d(0,50,10,10);$)else sound(0,0,0,0);if(ybounce)$(/* hit top/bot */dy=(py<100 ? 1 : -1);sound(1,100>B},10,10);$)else sound(1,0,0,0);$)else$(sound(0,0,0,0);sound(1,0,0,0);$)$)$)char i;key=copen("K:<gXAIOPRINTFDBC.OBJe sound(1,0,0,0);$)else$(sound(0,0,0,0);sound(1,0,0,0);$)$)$)char i;key=copen("K:@' '  ' $ ' ' '' %.r  'FE} .w  ' .q   )  ' A 'FF}'  $ b ' ' q '  r FG}' & s   '   ' ) ' FH}' ''x  $ 's 's 'FI} q w ' &  o '  ' )   'FJ}  'qFile reader/writerCommand: r,w,q-> '%c' is not a command.Try R(ead), W(rite), or Q(uit)FK}.File to read? CI/O error %3d on %s--EOF--File to write? CI/O error %3d on %s'main'printf'tolower'getcFL}har'rfile'wfile'gets'normaliz'copen'cgetc'putchar'cclose'cputc%.r  'DZ@@dbc @N B H B H"@@ )B H F 6HF %G@8@.rS@]@@@e@.we@o@XA@w@.qw@~@JN}@@ .B  H FB H@@@@  $!A@@ gB H &F vB F  r DJO} &A xAAB   H A!A@   F )CA F!A E B Hx JP} $A~AlA B Hs &Fs B F q w D &A B  o H AA{A F )AJQ}   FA EBBqFile reader/writerCommand: r,w,q-> '%c' is not a command.Try R(ead), W(rite), or Q(uitJR}).File to read? CI/O error %3d on %s--EOF--File to write? CI/O error %3d on %sBC  C $JS}  $  $B "CCB  +$  -$FC -$9C    "  0) JT} 9'C    0  "NC     C CD$  $  JU}$C "CCC D 0)  9'D  0jD a)  f'?D  WjD A)  JV}F'gD  7jDD     "C   &D @ DE  HJW} $DD "D $D     H  r$"E XE w$9E XE a$PEJX} XE        F    &E E   EFJY}   H   F E     F 00  F  F   JZ}x   F &]F   H H    F  HF   J[} FG FF 0    G  "#  HF # &0G J\} $  $   :%   :%   :%G H iH   iH  iH  J]}   GH  . H &G   .     iH a& % "H z( %,HJ^}5H  A& % UH Z( %_HhH  00      lH00 0uJ_} H000!0D:HI H     H H PI H  J`}   H H   H PI   H H ]K   % HJa} &I  F IJ(J     F        Jb} J " #   -$HJ  ~J 0)  9'{J    0~JJJ   Jc}    H d$J  JK  aKLK s$J    NLK c$K   Jd}MLK x$0K   LLK   F   " #}I   'Je} &K  "# -   L  KL   (K  "#  0    Jf}  K $/L  "# 0    (]L    nN  F &L Jg}   nN    )LM>M      (-M 'M  Jh} "#  0%M  "#  a    L $\M  "# 0    Ji}(M    nN  F &M    nNMN (M   nN   FJj} & N   nN  H (;N    nN  F &jN    nJk}N #" (N   FnN 00L 2Li0L0L0L0L1LP1L^1L1L1L1L1L1 3تʎL08L0إ M0ԆLa4LJl}0 HȱHL0JH @3lhhh hhBhhDEhhHIhhJhhK VIi``hhh) BHJm}I V0`L0hhhhh) BHIL0hh01hhh L 1`hhhhhhhJn}L41`hhhHlhhhhhhh ``Ls1hhh`hhhhh`hhhJo}𪈱`hhhȱhh`hhh) hhhh) 12 hh)`dbc@2L!2CL36Щ2ѭ@ҭ@LF2@ Jp}@2C2l  j2عk2l`'013W3h3{3333333334-4E4a44444455)5P5`5555556*696B6^6q66Jq}66666664dbc 1 run-time-error ""Type a key to ret23urn to DOS.2 BȝD2E8HI Vl Jr} @3؅ԘLF2ЅȱЅ٥iА` @3؅ȱ؅LF2 @3e؅ԥeمLF2 @3ԑLF2 @3ԑȥՑLF2 3ԑإ8ҥJs}LF2҅ȱ҅` 3ԑȥՑL3ԅԄLF2ԪȱԅՆLF2BL3 @334؅ԥمLF2 4ԑȥՑLF2iҥi Jt}`AL3Ա҅ԊȦձ҅ՊLF2 4 @3Рȥёҥ؅ХمLF2҅ȱ҅ _2إ8؅ҥLF2б҅ЊȦѱ҅ъLF2 @3؅ХمJu}LF2L4eЅАLF2 @3L4 @3e؅ҥeم45AL3LF2&LF2eԅȱeՅL38Jv}ȱՅL3ԍՍҍȱҍ 7ԭL3 p5ԭL3 p5ԭL3ҍȱҍDL3դL87ԅȱJw}ՅL3EԅȱEՅL3%ԅȱ%ՅL3҅ȱ҅FfL356ȱ҅L3҅ȱ҅&L3Jx}҅L38ԅԩՅLF2EԅԩEՅLF2LF2LF28ԅȱՅ` M6ʆL3 M6ԅL3 M60 M6Jy}0 M60åп M60ՐнԐՐЪԐПՐ67 ԐLg6Ր԰Lz6Jz}&&& L27 `ɀE ɀf8ਊ 7$ 8$P 8J{}`E0 IIL78L7Ff eeF77fff$ 8`J|} 2@@dbc @N B H B H"@@ )B H F 6HF %G@8@.rS@]@@@e@.we@o@XA@w@.qw@~@H/* * Deep Blue C formatted output * (C) 1982 John Howard Palevich * -- printf() and fprintf() * -- for version 1.0 of dbcN~}.obj only! */printf()$(int sp;sp=dpeek(210); /* run-time stack */sp=sp-(6+peek(dpeek(sp-8)));return fprint(sp,0);N}$)fprintf()$(int sp;sp=dpeek(210);sp=sp-(6+peek(dpeek(sp-8)));return fprint(sp+2,dpeek(sp));$)fprint(s,io)chN}ar *s;int io;$(char *fstring,*arg,c;int cleft,i,size,sign;cleft=strlen(fstring=dpeek(s));while(cleft)$(if((i=fiN}nd(fstring,cleft,'%'))<0)$(cputs(fstring,io);return; /* no more formatting */$)if(i>0)$(/* chars before % */N}ciov(io,11,fstring,i,-1,-1);fstring=fstring+i;cleft=cleft-i;$)/* get numeric arguement */size=0;sign=1;N}while(cleft)$(++fstring;--cleft;c= *fstring;if(c=='-')sign= -sign;else if(c>='0' & c<='9')size=siN}ze*10+(c-'0');else break;$)size=size*sign;arg=dpeek(s=s+2);/* check format character */if(c=='d')fprintd(N}arg,size,io);else if(c=='s')fprints(arg,size,io);else if(c=='c')fprintc(arg,size,io);else if(c=='x')fpriN}ntx(arg,size,io);else $( /* %%, etc. */cputc(c,io);s=s-2; /* not really an arg */$)++fstring;--cleft;$N})$)/* * print decimal # */fprintd(arg,size,io)int arg,size,io;$(/* buffer string */char buf[7],flag,c;int i,kN};i=flag=0;k=10000;if(arg<0)$(buf[i++]='-';arg= -arg;$)while(k)$(if(flag | (c=arg/k)>0)$(buf[i++]=c+'0'N};flag=1;$)arg=arg%k;k=k/10;$)if(flag==0)/* zero */buf[i++]='0';buf[i]=0;if(size > 0)fprintws(io,sN}ize-i);cputs(buf,io);if(size < 0)fprintws(io,(-size)-i);$)/* * print hex # */fprintx(arg,size,io)int arg,size,N}io;$(/* buffer string */char buf[7],flag,c;int i,field;i=flag=0;field=12;while(field>=0)$(if(flag|(c=(argN} >> field)&15)>0)$(if(c<=9)buf[i++]=c+'0';else buf[i++]=c+'a'-10;flag=1;$)field=field-4;$)if(flag==0)/N}* zero */buf[i++]='0';buf[i]=0;if(size>0)fprintws(io,size-i);cputs(buf,io);if(size<0)fprintws(io,(-size)-i);$)/N}* * print character */fprintc(arg,size,io)char arg;int size,io;$(if(size>0)fprintws(io,size-1);cputc(arg,io);ifN}(size<0)fprintws(io,(-size)-1);$)/* * print string */fprints(arg,size,io)char *arg;int size,io;$(int i;i=strleN}n(arg);if(size>0)fprintws(io,size-i);cputs(arg,io);if(size<0)fprintws(io,(-size)-i);$)/* * print n characters of whN}ite space */fprintws(io,n)int io,n;$(while(n-- > 0)cputc(' ',io);$)ntf() and fprintf() * -- for version 1.0 of dbcLM' '     ' ' '' '  R}    ' '   ' ''   ' R}'    % ' &  ' (   R}  '          " #   -$R}    0)  9'     0     R}    ' d$    '  s$   ' R} c$   ' x$   '  '  R}  " #'   ' &  "# -R}        (  "#  0     R}  $  "# 0    (    '  R} ' &    ''    )R}      ( '  "#  0  "#  a R}    $   "# 0     (!  R}  '!  ' &"    '"' (#   '#R}  ' &$   '$'  ' (%    'R}%  ' &&    '&'' #" ((  ''('prR}intf'dpeek'peek'fprint'fprintf'strlen'find'cputs'ciov'fprintd'fprints'fprintc'fprintx'R}cputc'fprintws '     ' ' '' '  Pbounceaiographicspmgdbc.obj    ' ' '' '  T APX-20166DEEP BLUE "C"JOHN H. PALEVICH11/18/820' ' '' '  X4